TabCaption Property (SSTab Control) Example

This example adds or removes an extra word from the tabs of an SSTab control that lists the defensive players of a sport on one tab and the offensive players on another tab. By clicking the CheckBox control on the Form, the user can toggle between longer captions or shorter ones.

Private Sub Check1_Click()
   Dim X As Integer
   For X = 0 To SSTab1.Tabs - 1
      Select Case Check1.Value
         Case 0   ' Toggle to short captions.
            SSTab1.TabCaption(X) = Left(SSTab1.TabCaption(X), 7)
         Case 1   ' Toggle to long captions.
            SSTab1.TabCaption(X) = SSTab1.TabCaption(X) & " Players"
      End Select
   Next X
End Sub